home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / library / extend / wfcutpst.s < prev    next >
Text File  |  1998-03-20  |  5KB  |  196 lines
  1. ;------------------------------------------------------------------------------
  2. ; Method name : GWVA_METHOD_WIND_CLIPBOARD_COPY
  3. ; Asm label   : GWVA_WFORM_PRG_CLIPBOARD_COPY
  4. ; Description : Méthode effectuant la copie du champ de texte éditable dans le 
  5. ;               clipboard GEM
  6. ; 
  7. ; in  : a0.l = pointeur sur l'objet fenêtre
  8. ; out : d6.w = GWVA_PRGRET_CONSUMED
  9. ;
  10. ; 19/03/98 : Création
  11. ;------------------------------------------------------------------------------
  12. GWVA_WFORM_PRG_CLIPBOARD_COPY:
  13. ; rajouter BEFORE et AFTER
  14.  
  15.     bftst GWVA_WIND_OBJ_PROPERTIES(a0){GWVA_WIND_OLBIT_CTRLC:1}
  16.     beq.s .pas_de_ctrlc_possible
  17.  
  18.     ifd MDL_FORM_EDITABLE_TEXT
  19.  
  20.     tst.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0)
  21.     bmi .pas_de_texte_editable_dans_fenetre
  22.  
  23.     save.l a0
  24.     bsr GWVA_CLIPB_CLEAR_CLIPBOARD
  25.     load.l a0
  26.     cmp.w #GWVA_NO_ERROR_GENERIC,d7
  27.     bne.s .erreur_de_clipboard
  28.  
  29.     move.w GWVA_WRSC_OBJ_TREE(a0),d0
  30.     move.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0),d1
  31.  
  32.     save.l a0
  33.     bsr GWVA_RSC_COUNT_TEXT_OBJ_LENGTH    ; -> d0.l = taille texte, a0.l pointeur sur le texte
  34.     move.l #'TXT'*256,d1
  35.     bsr GWVA_CLIPB_COPY
  36.     load.l a0
  37.  
  38.     move.w #GWVA_NO_ERROR_GENERIC,d7
  39. .erreur_de_clipboard:
  40.     move.w #GWVA_PRGRET_CONSUMED,d6
  41.     rts
  42. .pas_de_texte_editable_dans_fenetre:
  43. .pas_fenetre_formulaire:
  44.  
  45.     endc    ; ifd MDL_FORM_EDITABLE_TEXT
  46.  
  47. .pas_de_ctrlc_possible:
  48.     move.w #GWVA_ERROR_GENERIC,d7
  49.     move.w #GWVA_PRGRET_CONSUMED,d6
  50.     rts
  51.  
  52. ;------------------------------------------------------------------------------
  53. ; Method name : GWVA_METHOD_WIND_CLIPBOARD_CUT
  54. ; Asm label   : GWVA_WFORM_PRG_CLIPBOARD_CUT
  55. ; Description : Méthode effectuant la copie du champ de texte éditable dans le 
  56. ;               clipboard GEM et effaçant ce champ texte
  57. ; 
  58. ; in  : a0.l = pointeur sur l'objet fenêtre
  59. ; out : d6.w = GWVA_PRGRET_CONSUMED
  60. ; out : d7.w = GWVA_NO_ERROR_GENERIC ou erreur
  61. ;
  62. ; 19/03/98 : Création
  63. ;------------------------------------------------------------------------------
  64. GWVA_WFORM_PRG_CLIPBOARD_CUT:
  65. ; rajouter BEFORE et AFTER
  66.  
  67.     bftst GWVA_WIND_OBJ_PROPERTIES(a0){GWVA_WIND_OLBIT_CTRLX:1}
  68.     beq.s .pas_de_ctrlx_possible
  69.  
  70.     GWVA_CALL_METHOD    #GWVA_METHOD_WIND_CLIPBOARD_COPY,#GWVA_MODE_SEARCH_EXEC_UNIQUE
  71. *    cmp.w #GWVA_NO_ERROR_GENERIC,d7
  72. *    bne.s .erreur_de_clipboard
  73.  
  74.     ifd MDL_FORM_EDITABLE_TEXT
  75.  
  76.     tst.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0)
  77.     bmi .pas_de_texte_editable_dans_fenetre
  78.  
  79.     move.w GWVA_WRSC_OBJ_TREE(a0),d0
  80.     move.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0),d1
  81.     save.l a0
  82.     bsr GWVA_RSC_RETURN_PTR_ON_TEXT
  83.     clr.b (a1)
  84.     load.l a0
  85.  
  86.     fail    ; Comment je fais ici ?
  87.  
  88.     move.l GWVA_WIND_OBJ_SPEC_PTR(a0),a1
  89.     move.w #0,d0
  90.     move.w #7,d1
  91.     clr.w d2
  92.     bsr GWVA_FORM_WIND_OBJ_PRG_REDRAW_PART
  93.  
  94.     move.w #GWVA_NO_ERROR_GENERIC,d7
  95. .erreur_de_clipboard:
  96.     move.w #GWVA_PRGRET_CONSUMED,d6
  97.     rts
  98. .pas_de_texte_editable_dans_fenetre:
  99. .pas_fenetre_formulaire:
  100.  
  101.     endc    ; ifd MDL_FORM_EDITABLE_TEXT
  102.  
  103. .pas_de_ctrlx_possible:
  104.     move.w #GWVA_ERROR_GENERIC,d7
  105.     move.w #GWVA_PRGRET_CONSUMED,d6
  106.     rts
  107.  
  108. ;------------------------------------------------------------------------------
  109. ; Method name : GWVA_METHOD_WIND_CLIPBOARD_CUT
  110. ; Asm label   : GWVA_WFORM_PRG_CLIPBOARD_CUT
  111. ; Description : Méthode effectuant la copie du champ de texte éditable dans le 
  112. ;               clipboard GEM et effaçant ce champ texte
  113. ; 
  114. ; in  : a0.l = pointeur sur l'objet fenêtre
  115. ; out : d6.w = GWVA_PRGRET_CONSUMED
  116. ; out : d7.w = GWVA_NO_ERROR_GENERIC ou erreur
  117. ;
  118. ; 19/03/98 : Création
  119. ;------------------------------------------------------------------------------
  120. GWVA_WFORM_PRG_CLIPBOARD_PASTE:
  121. ; rajouter BEFORE et AFTER
  122.  
  123.     bftst GWVA_WIND_OBJ_PROPERTIES(a0){GWVA_WIND_OLBIT_CTRLV:1}
  124.     beq .pas_de_ctrlv_possible
  125.  
  126.     ifd MDL_FORM_EDITABLE_TEXT
  127.  
  128.     tst.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0)
  129.     bmi .pas_de_texte_editable_dans_fenetre
  130.  
  131.     save.l a0
  132.     move.l #'TXT'*256,d0
  133.     move.w #MX_PREFTTRAM,d1
  134.     bsr GWVA_CLIPB_PASTE_IN_MEM
  135.     move.l a0,a2
  136.     load.l a0
  137.     cmp.w #GWVA_NO_ERROR_GENERIC,d7
  138.     bne.s .erreur_lecture_clipboard
  139.     tst.l d0
  140.     beq.s .fichier_scrap_nul
  141.  
  142.     save.l d0/a0/a2
  143.     move.w GWVA_WRSC_OBJ_TREE(a0),d0
  144.     move.w GWVA_WFORM_OBJ_FOCUSED_IDX(a0),d1
  145.     bsr GWVA_RSC_RETURN_PTR_ON_OBJ    ; -> objet texte éditable pointé par a1
  146.     load.l d0/a0/a2
  147.  
  148.     move.w GWVA_WFORM_OBJ_FOCUSED_IDX_CURSOR_POS(a0),d1
  149.     move.l d0,d2
  150.  
  151.     save.l a0-a2
  152.     move.l a1,a0
  153.  
  154.     fail    ; Manque encore une routine
  155.  
  156. .insertion_du_clipboard:
  157.     move.b (a2)+,d0
  158.     beq.s .pas_insertion_0
  159.     save.l d2/a2
  160.     move.w #2,d2    ; mode normale d'insertion 
  161.     bsr GWVA_WFORM_OBJ_PRG_INSERT_CHAR_IN_EDITABLE_TEXT
  162.     load.l d2/a2
  163.     move.w d0,d1    ; nouvelle position curseur
  164. .pas_insertion_0:
  165.     sub.l #1,d2
  166.     bne.s .insertion_du_clipboard
  167.  
  168.     movem.l (sp),a0-a2
  169.  
  170.     MFREE a2
  171.  
  172.     load.l a0-a2
  173.  
  174.     fail    ; Comment je fais ici ?
  175.  
  176.     move.l GWVA_WIND_OBJ_SPEC_PTR(a0),a1
  177.     move.w #0,d0
  178.     move.w #7,d1
  179.     clr.w d2
  180.     bsr GWVA_FORM_WIND_OBJ_PRG_REDRAW_PART
  181.  
  182.     move.w #GWVA_NO_ERROR_GENERIC,d7
  183.     move.w #GWVA_PRGRET_CONSUMED,d6
  184.     rts
  185. .fichier_scrap_nul:
  186. .erreur_lecture_clipboard:
  187. .pas_de_texte_editable_dans_fenetre:
  188. .pas_fenetre_formulaire:
  189.  
  190.     endc    ; ifd MDL_FORM_EDITABLE_TEXT
  191.  
  192. .pas_de_ctrlv_possible:
  193.     move.w #GWVA_ERROR_GENERIC,d7
  194.     move.w #GWVA_PRGRET_CONSUMED,d6
  195.     rts
  196.